home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Text / OzTeX 1.9 / TeX-inputs / Tools / showkeys.sty < prev    next >
Encoding:
Text File  |  1995-01-24  |  4.2 KB  |  129 lines  |  [TEXT/MPS ]
  1. %% 
  2. %% This is file `showkeys.sty', generated 
  3. %% on <1995/1/24> with the docstrip utility (2.2i).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% showkeys.dtx  (with options: `package')
  8. %% 
  9. %% IMPORTANT NOTICE: 
  10. %% This file is part of the `tools' bundle 
  11. %% in the LaTeX2e distribution. 
  12. %% 
  13. %% You are not allowed to distribute this file. 
  14. %% For distribution of the original source see 
  15. %% the copyright notice in the source file, and 
  16. %% in the file readme.txt distributed with the 
  17. %% tools bundle. 
  18. %% 
  19. %% File: showkeys.dtx Copyright (C) 1992-1994 David Carlisle
  20. \NeedsTeXFormat{LaTeX2e}
  21. \ProvidesPackage{showkeys}
  22.           [1994/09/09 v3.01 Show cite and label keys (DPC)]
  23. \let\SK@label\label
  24. \let\SK@bibitem\@bibitem
  25. \let\SK@lbibitem\@lbibitem
  26. \def\label#1{\@bsphack\SK@\SK@@label{#1}\SK@label{#1}\@esphack}
  27. \def\@bibitem#1{\SK@\SK@@label{#1}\SK@bibitem{#1}\ignorespaces}
  28. \def\@lbibitem[#1]#2{%
  29.   \SK@\SK@@label{#2}\SK@lbibitem[#1]{#2}\ignorespaces}
  30. \def\SK@#1#2{\def\@tempa{#2}\expandafter#1\meaning\@tempa\SK@}
  31. \def\SK@@label#1>#2\SK@{%
  32.   \gdef\SK@lab{\smash{\fbox{\reset@font\small\ttfamily#2}}}%
  33.   \ifvmode
  34.     \ifinner
  35.       \if@inlabel
  36.         \mbox{}\let\@tempa\SK@lab
  37.                 \def\SK@lab{\llap{\@tempa\kern\leftmargin}}%
  38.         \let\SK@temp\@gobble
  39.       \else
  40.         \skip@=\lastskip\unskip
  41.         \let\SK@temp\vskip
  42.       \fi
  43.       \skip@=\lastskip\unskip
  44.       \setbox\z@=\lastbox
  45.       \ifvoid\z@
  46.         \nointerlineskip\SK@labx
  47.       \else
  48.         \hbox{\box\z@\SK@labx}%
  49.       \fi
  50.       \SK@temp\skip@
  51.     \else
  52.       \marginpar{\SK@lab}\SK@lab@relax
  53.     \fi
  54.   \else
  55.     \csname SK@\@currenvir\endcsname
  56.     \ifSK@equation\else\SK@labx\fi
  57.   \fi}
  58. \AtBeginDocument{%
  59.   \let\SK@eqnnum\@eqnnum
  60.   \def\@tempa{\let\iftagsleft@\iffalse}%
  61.   \ifx\iftagsleft@\undefined\@tempa\fi%
  62.   \let\SK@tagform@\tagform@
  63.   \iftagsleft@
  64.     \def\tagform@#1{\llap{\SK@lab\kern\marginparsep}%
  65.                      \SK@lab@relax\SK@tagform@{#1}}%
  66.     \def\@eqnnum{\llap{\SK@lab\kern\displaywidth\kern\marginparsep}%
  67.                      \SK@lab@relax\SK@eqnnum}%
  68.   \else
  69.     \def\tagform@#1{\SK@tagform@{#1}%
  70.                      \rlap{\kern\marginparsep\SK@lab}\SK@lab@relax}%
  71.     \def\@eqnnum{\SK@eqnnum\rlap{\kern\marginparsep\SK@lab}%
  72.                      \SK@lab@relax}%
  73.   \fi}
  74. \def\SK@labx{\rlap\SK@lab\global\let\SK@lab\relax}
  75. \def\SK@lab@relax{\global\let\SK@lab\relax}\SK@lab@relax
  76. \newif\ifSK@equation
  77. \let\SK@equation\SK@equationtrue
  78. \let\SK@eqnarray\SK@equationtrue
  79. \let\SK@align\SK@equationtrue
  80. \let\SK@alignat\SK@equationtrue
  81. \let\SK@xalignat\SK@equationtrue
  82. \let\SK@xxalignat\SK@equationtrue
  83. \let\SK@gather\SK@equationtrue
  84. \let\SK@multline\SK@equationtrue
  85. \AtBeginDocument{%
  86.   \let\SK@ref\ref
  87.   \let\SK@pageref\pageref
  88.   \DeclareRobustCommand\ref[1]{\SK@\SK@@ref{#1}\SK@ref{#1}}%
  89.   \DeclareRobustCommand\pageref[1]{\SK@\SK@@ref{#1}\SK@pageref{#1}}%
  90.   \ifx\vpageref\@undefined\else
  91.     \let\SK@@@vpageref\@@vpageref
  92.     \def\@@vpageref#1[#2]#3{{%
  93.       \let\label\SK@label\let\ref\SK@ref\let\pageref\SK@pageref
  94.       \leavevmode\unskip\SK@\SK@@ref{#3}\SK@@@vpageref#1[#2]{#3}}}%
  95.     \DeclareRobustCommand\vref[1]{%
  96.       \unskip~\ref{#1}%
  97.       {\let\label\SK@label\let\ref\SK@ref\let\pageref\SK@pageref
  98.        \SK@@@vpageref\unskip[\unskip\space]{#1}}}%
  99.   \fi
  100.   \ifx\HAR@checkdef\@undefined
  101.     \let\SK@cite\cite
  102.     \def\cite#1#{\SK@citea{#1}}%
  103.     \let\SK@citeauthor\citeauthor
  104.     \def\citeauthor#1{\SK@\SK@@ref{#1}\SK@citeauthor{#1}}%
  105.     \let\SK@citefullauthor\citefullauthor
  106.     \def\citefullauthor#1{\SK@\SK@@ref{#1}\SK@citefullauthor{#1}}%
  107.     \let\SK@citeyear\citeyear
  108.     \def\citeyear#1{\SK@\SK@@ref{#1}\SK@citeyear{#1}}%
  109.   \else
  110.     \let\SK@HAR@checkdef\HAR@checkdef
  111.     \def\HAR@checkdef#1#2{%
  112.       \expandafter\SK@\expandafter\SK@@ref\expandafter{#1}%
  113.       \SK@HAR@checkdef{#1}{#2}}%
  114.       \expandafter\let\expandafter
  115.          \SK@HAR@bi\csname\string\harvarditem\endcsname
  116.       \expandafter\def\csname\string\harvarditem\endcsname[#1]#2#3#4{%
  117.         \SK@\SK@@label{#4}\SK@HAR@bi[#1]{#2}{#3}{#4}}%
  118.   \fi}
  119. \def\SK@citea#1#2{%
  120.   \SK@\SK@@ref{#2}\SK@cite#1{#2}}
  121. \def\SK@@ref#1>#2\SK@{%
  122.   \leavevmode\vbox to \z@{\vss
  123.     \rlap{\vrule\raise .75em
  124.        \hbox{\underbar{\reset@font\footnotesize\ttfamily#2}}}}}
  125.  
  126. \endinput
  127. %% 
  128. %% End of file `showkeys.sty'.
  129.